COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PIX"
C00005 ENDMK
C⊗;
BEGIN "PIX"
REQUIRE "VIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER CAMERA,CHR;
DEFINE WID=256, HIG=236;
CAMERA←0;
DDINIT;
DRKEN; SCREEN(-2,-2,2,2); DRKEN; RECTAN(-3,-3,3,3);
   BEGIN
   INTEGER ARRAY PIC[0:PIXDIM(HIG,WID,4)-1];
   MAKPIX(HIG,WID,4,PIC[0]);
   WHILE TRUE DO
      BEGIN
      OUTSTR("*");
      CHR←INCHRW LAND '137;
      IF CHR='135 THEN
         BEGIN
         OUTSTR("CAMERA NUMBER:");
         CAMERA←CVD(INCHWL);
         END
      ELSE
      IF CHR="T" THEN
         BEGIN
         CAMPIX(CAMERA,20,2,1,8,PIC[0]);
         END
      ELSE
      IF CHR="O" THEN
         BEGIN
         STRING FN;
         OUTSTR("FILE:");
         IF LENGTH(FN←INCHWL)≠0 THEN PUTPFL(PIC[0],FN);
         END
      ELSE
      IF CHR="D" THEN
         BEGIN
         INTEGER I,J;
         FOR I←5 STEP -1 UNTIL 2 DO
            BEGIN
            DRKEN; RECTAN(-1,-1,1,1);
            VIDEO(-1,-1,1,1,PIC[0],2↑(I-2));
            FOR J←1,2,3 DO DPYUP(SYNMAP(I));
            SHOWA('47);
            END;
         OUTSTR('15&'12);
         END
      ELSE
      IF CHR="H" THEN
         BEGIN
         INTEGER J,CHN;
         DRKEN; RECTAN(-3,-3,3,3);
         VIDEO(-2,-2,2,2,PIC[0],-2);
         FOR J←1,2,3 DO DPYUP(CHN←GDDCHN(-1));
         OUTSTR("CHANNEL IS "&CVOS(CHN)&'15&'12);
         SHOW(CHN);
         RECTAN(-3,-3,3,3);
         INCHRW;
         SHOW(-1);
         RDDCHN(CHN);
         OUTSTR('15&'12);
         END;
      END;
   END;
END;